home *** CD-ROM | disk | FTP | other *** search
/ 3D Images / 3D Images.iso / programs / amiga / imagestudio / installid < prev    next >
Text File  |  1978-06-29  |  7KB  |  270 lines
  1. ; Install script for ImageDesk (Workbench 3.0 or higher)
  2.  
  3. (set @default-dest "work:ImageDesk")
  4. (set #CDir "C:")
  5. (set #SDir "S:")
  6.  
  7. ;=============================================================================
  8. ; English strings
  9.  
  10. (set default_lang 4)
  11.  
  12. (set #bad-kick "I'm sorry. ImageDesk needs Amiga-OS 3.0 or higher")
  13.  
  14. (set #install-msg
  15.     (cat
  16.      "\n\nImageDesk installation script.\n"
  17.      "Please read 'ImageDesk.guide' after this installation.\n"
  18.      "ImageDesk © 1994 Reinhard Haslbeck\n"
  19.      "All rights reserved."
  20.     )
  21. )
  22.  
  23. (set #Proc-msg
  24.     (cat "Please choose one of the both program versions\n"
  25.          "which are listed below. The MC68030 version\n"
  26.          "should run on 020 and 040 machines too."
  27.     )
  28. )
  29.  
  30. (set #Exit-msg
  31.     (cat "ImageDesk now has been installed.\n"
  32.          "If You wanna have JPEG support, You have to\n"
  33.          "install the 'Tower JPEG Codec', too.\n"
  34.          "You will find it in the directory 'JPEG Codec'."
  35.     )
  36. )
  37.  
  38.  
  39. (set #Copy030Msg "Copying 68030 version...")
  40. (set #Copy000Msg "Copying 68000 version...")
  41. (set #AskDirMsg  "Please select a directory\nto install ImageDesk in")
  42. (set #CopyComMsg "These are a few useful tools.\nDo You want to intstall them?")
  43. (set #CopyKeyMsg "Installing keyfile...")
  44. (set #DontCopyMSg "I'm going to install Your keyfile.\nDon't give it away, it includes some\nof Your personal data!")
  45.  
  46. (set #AskCatMsg "Do You want to install some Catalog examples?")
  47. (set #PosMsg "Yes")
  48. (set #NegMsg "No")
  49. (set #CopyCatMsg "Copy these files?")
  50. (set #CopyICONMsg "Working on default project icon")
  51. (set #ToolTypeMsg "Setting icon attributes")
  52.  
  53. ;=============================================================================
  54. ; German strings
  55.  
  56. (if   (= @language "deutsch")
  57. (
  58.     (set default_lang 2)
  59.  
  60.     (set #bad-kick "Zu dumm! ImageDesk benötigt leider Amiga-OS 3.0 oder höher")
  61.  
  62.     (set #install-msg
  63.         (cat "\n\nImageDesk Installationsskript.\n"
  64.              "Nach dieser Installationsprozedur sollten\n"
  65.              "Sie unbedingt 'ImageDesk.guide' lesen.\n"
  66.              "ImageDesk © 1994 Reinhard Haslbeck\n"
  67.              "All rights reserved."
  68.         )
  69.     )
  70.  
  71.     (set #Proc-msg
  72.         (cat "Wählen Sie bitte welche der beiden untenstehenden\n"
  73.              "Programmversionen installiert werden soll.\n"
  74.              "MC68030 sollte auch auf 020 und 040 Maschinen laufen."
  75.         )
  76.     )
  77.  
  78.     (set #Exit-msg
  79.         (cat "ImageDesk ist nun installiert.\n"
  80.              "Wenn Sie JPEG Unterstützung haben wollen, müssen\n"
  81.              "Sie den 'Tower JPEG Codec', ebenfalls installieren.\n"
  82.              "Er befindet sich im Verzeichnis 'JPEG Codec'."
  83.         )
  84.     )
  85.  
  86.  
  87.  
  88.     (set #Copy030Msg "Kopiere 68030 Version...")
  89.     (set #Copy000Msg "Kopiere 68000 Version...")
  90.     (set #AskDirMsg  "Wählen Sie bitte ein Verzeichnis in-\ndem Imagedesk Installiert werden soll")
  91.     (set #CopyComMsg "Dies sind einige nützliche Tools.\nSollen sie installiert werden?")
  92.     (set #CopyKeyMsg "Installiere Keyfile...")
  93.     (set #DontCopyMSg "Es wird nun das Keyfile kopiert. Geben\nSie es keinesfalls weiter, es sind einige\nIhrer persönlichen Daten darin enthalten!")
  94.     (set #AskCatMsg "Sollen einige Catalog Beispiele intalliert werden?")
  95.     (set #PosMsg "Ja")
  96.     (set #NegMsg "Nein")
  97.     (set #CopyCatMsg "Diese Dateien Kopieren?")
  98.     (set #CopyICONMsg "Arbeite am default project icon")
  99.     (set #ToolTypeMsg "Setze Icon-Attribute")
  100.  
  101.  
  102. ))
  103. ;=============================================================================
  104. ; make sure we are running under a 3.0 OS
  105.  
  106. (if (< (/ (getversion) 65536) 39)
  107. (
  108.     (abort #bad-kick)
  109. ))
  110.  
  111. ;=============================================================================
  112.  
  113. (message #install-msg)
  114.  
  115. (set ProcVers (askchoice
  116.                         (prompt #Proc-msg)
  117.                         (help @askchoice-help)
  118.                         (choices "MC68030" "MC68000")
  119.               )
  120. )
  121.  
  122. (set @default-dest (askdir
  123.                        (prompt #AskDirMsg)
  124.                        (help @askdir-help)
  125.                        (default @default-dest)
  126.                    )
  127. )
  128. (complete 10)
  129.  
  130. ;====== copy english stuff ======
  131. (if (= default_lang 4)
  132. (
  133.     (copyfiles
  134.         (prompt "Copying guide file...")
  135.         (help @copyfiles-help)
  136.         (source "ImageDeskE.guide")
  137.         (dest @default-dest)
  138.         (newname "ImageDesk.guide")
  139.         (infos)
  140.         (confirm)
  141.     )
  142.  
  143.     (if (exists "OrderForm")
  144.     (
  145.         (copyfiles
  146.             (prompt "Copying OrderForm file...")
  147.             (help @copyfiles-help)
  148.             (source "OrderForm")
  149.             (dest @default-dest)
  150.             (newname "OrderForm")
  151.             (infos)
  152.             (confirm)
  153.         )
  154.     ))
  155. ))
  156.  
  157. ;====== copy German stuff ======
  158. (if (= default_lang 2)
  159. (
  160.     (copyfiles
  161.         (prompt "Kopiere guide Datei...")
  162.         (help @copyfiles-help)
  163.         (source "ImageDeskD.guide")
  164.         (dest @default-dest)
  165.         (newname "ImageDesk.guide")
  166.         (infos)
  167.         (confirm)
  168.     )
  169.  
  170.     (if (exists "Bestellformular")
  171.     (
  172.         (copyfiles
  173.             (prompt "Kopiere Bestellformular...")
  174.             (help @copyfiles-help)
  175.             (source "Bestellformular")
  176.             (dest @default-dest)
  177.             (newname "Bestellformular")
  178.             (infos)
  179.             (confirm)
  180.         )
  181.     ))
  182. ))
  183. (complete 30)
  184.  
  185. ;====== install 68030 version =====
  186. (if (= ProcVers 0)
  187. ;then
  188.     (copyfiles
  189.         (prompt #Copy030Msg)
  190.         (help @copyfiles-help)
  191.         (source "ImageDesk.030")
  192.         (dest @default-dest)
  193.         (newname "ImageDesk")
  194.         (infos)
  195.         (confirm)
  196.     )
  197. ;)
  198. ;====== install 68000 version =====
  199. ;else
  200.     (copyfiles
  201.         (prompt #Copy000Msg)
  202.         (help @copyfiles-help)
  203.         (source "ImageDesk.000")
  204.         (dest @default-dest)
  205.         (newname "ImageDesk")
  206.         (infos)
  207.         (confirm)
  208.     )
  209. )
  210. (complete 40)
  211.  
  212. ;== install default project icon ==
  213. (copyfiles
  214.     (prompt #CopyICONMsg)
  215.     (help @copyfiles-help)
  216.     (source "ID_DefProjIcon.info")
  217.     (dest @default-dest)
  218.     (newname "ID_DefProjIcon.info")
  219.     (confirm)
  220. )
  221. (tooltype
  222.     (prompt #ToolTypeMsg)
  223.     (help @tooltype-help)
  224.     (dest (tackon @default-dest "ID_DefProjIcon"))
  225.     (setdefaulttool (tackon @default-dest "ImageDesk"))
  226.     (confirm)
  227. )
  228. (complete 50)
  229.  
  230. ;====== install Catalog tools =====
  231. (copyfiles
  232.     (prompt #CopyComMsg)
  233.     (help @copyfiles-help)
  234.     (source "c/")
  235.     (dest #CDir)
  236.     (all)
  237.     (confirm 1)
  238. )
  239. (complete 70)
  240.  
  241. ;====== Copy example Catalogs =====
  242. (if (askbool (prompt #AskCatMsg) (choices #PosMsg #NegMsg) (help @askbool-help))
  243. (
  244.     (copyfiles
  245.         (prompt #CopyCatMsg)
  246.         (help @copyfiles-help)
  247.         (source "example/")
  248.         (dest (tackon @default-dest "example"))
  249.         (all)
  250.         (confirm 1)
  251.     )
  252. ))
  253. (complete 90)
  254.  
  255. ;====== install keyfile ========
  256. (if (exists "s/ImageDesk.Key")
  257. (
  258.     (message #DontCopyMsg)
  259.     (copyfiles
  260.         (prompt #CopyKeyMsg)
  261.         (help @copyfiles-help)
  262.         (source "s/ImageDesk.Key")
  263.         (dest #SDir)
  264.         (newname "ImageDesk.Key")
  265.     )
  266. )
  267. )
  268. (message #exit-msg)
  269. (complete 100)
  270.